DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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14S 
1 MODULE DBGNSDATA (IDENT = ‘V04-000") = 
BEGIN 


' 
leueeneceneuceucensenseeneesecreerecreerereeerereranerennecnentensnerecsertes 
‘@ 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 

THI 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE WITH THE TER SUCH LICENSE AND WITH THE 
THE ABOVE COPYRIGHT NOTICE. THIS SOFTWAR ANY OTHER 


~198¢ 92:17:19 EDeaUG.SkcSoaGnsDatA.050:1 


St a ss tt 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- aePORaT tie NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ft 
a 
SI 
® 
& 
¥ 
& 
& 
we 
' f 
ie TRANSFERRED. ‘ 
e 
® 
® 
® 
® 
& 
® 
” 
' * 
eR RRA RARE AAAARAAAAAAAERAAAERAAAAE AAA AAEAAAARAAAEAAAAAAAAAEAAE 
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lee 

i FACILITY: 
DEBUG 

i ABSTRACT: 


eure 


ee ee ee ee ee ee eee eee eee ee LLL LL L_) 


This module consists of data structures and data structure management 
routines that manage the user's session specific data during th 


cone 
sono 


the 
precece tn of debugger commands while under the control of fhe new 
ommand Line Interpreter. Specifically, this module keeps track of 
popes. types. override types, radicies, current location, and 
ast value. 


' 
! 
' 
‘ 
i] 
' 
' 
' 
‘ 
' 
' 
' 
' 
| ENVIRONMENT : 
‘ 
1 
/ 
‘ 
‘ 
' 
' 
] 
' 
' 
' 
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Seeeees 


VAX/VMS 

i AUTHOR: 

i David Plummer 

i CREATION DATE: 
10-Jul-80 

i VERSION: 
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64 ' 


65 ; TABLE OF CONTENTS: 


REQUIRE FILES: 


FORWARD wo B § 

$ DBGSNGET_RADIX, ! Returns the user specified or default radix 
0 DBGSNGET_TRANS_ RADIX ! Translates a default radix into the actual radix 
71 DBGSNGET“DEFAUCT TYPE =: NOVALUE, ! Returns user set default type 

7 DBGSNGET-OVERRIDE_TYPE, ' Returns user set override type 

7 DBGSNGET_MODE, : Returns true if ‘symbolic’, false 

74 7 ! if ‘nosymbolic’ 

75 DBGSNREPORT_LAST_VAL, ! Returns the last value given to the 

7 75 ! user that was stored by the DEBUGGER 

7 $ DBGSNREPORT_LAST_LOC, ! Returns the last location that was 

78 7 ! shown to the user by the DEBUGGER 

79 % DBGSNSET_LAST_TYPLEN : NOVALUE, ! Stores potential last loc type and length 

DBGSNGET"POTERTIAL_TYPE : NOVALUE, ! Returns the type associted with ‘.' 

1 80 : by the Address Expression Interpreter 

¢ 81 DBGSNSAVE _LAST_VAL : NOVALUE, ! Stores a value descriptor for last val 
8 o¢ DBGSNSAVE_LAST_LOC : NOVALUE, ! Stores an address expression desc for 
Be 8 ! current location 

5 84 DBGSNCANCEL_LOC_AND_VAL : NOVALUE, ! Cancel Last val and current loc for both 

85 ! old and new Gobvagers 
Bone DBGSNPERM_SYM_INT; ! Permanent symbol Interpreter 
39 


me ee et el a ed ad a a to = 2 i 8 dd 8 ts a 2 ts 4 4 4 8 


Et} 


REQUIRE ‘SRC$:DBGPROLOG.REQ'; 
LIBRARY ‘LIB$:DBGGEN.L32°; 


OWN STORAGE: 
OWN 


COOoooeoo 
Wr 0 0OOnWwnN— 


SELES SSS 


Be Be Be Se Be Se Se Se Se Se Se Se Se Se Be Ge Ge Ge HF Se Ge Be Se Se Se Ge Ge Se Ge Se Ge Se Ge Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se FHSS Ss Se Se ae 


SSerTnRan=SSSLESARAN LS SSLEGLAN LESSEE 


1 

1 

1 LAST_VALUE : REF dbg$dhead INITIAL (0), ! Pointer to last value 

1 LAST_L : REF dbg$aed INITIAL (0), ! Pointer to last location 

1 POTERTIAL_LAST_TYPE : INITIAL (-1), ' Possible type for current loc 
1 POTENTIAL_LAST_LENGTH : INITIAL (0) ' Possible length for current loc 
1 LAST_TYPE : INITIAL (-15, i Real type for current loc 

; iB LAST_LENGTH INITIAL (0); ! Real length for current loc 

1 41 

1 rh} 

1 & : 

\ rt} : EXTERNAL REFERENCES: 

1 r+ 

1 4 EXTERNAL a th 

1 4 DBGSCOPY_MEMORY, ! Make a copy of a memory block 

1 4 DBGSGET_TEMPMEM, ' Get temporary memory block 

1 DBGSNCOPY_DESC, ' Copies primary and value descriptors 

1 1 DBGSNFREE DESC, ' Frees copied descriptors 

1 2 DBGSNGET_SYMID, ! Obtains symid List for descriptors 


a a as 4 8 ss 
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ibesen- 1964 91:85:02 


AX-11 Bliss-32 V4.0-7 


DBGSNMAKE _ARG_VECT, !' Constructs @ message arguemnt vector 
43 T Iwo. ' Qutputs an otorae ional message 
$3ta-toe ' Sets mode poin 
pacts A“LOCR LAID : NOVALUE, i Saves symids 
DBGSSTA_UNLOCK_ se Me, NOVALUE, ' Releases symids 
pBCsREL “MEMORY” : NOVALUE; ! Release memory block 
EXTERNAL 
DBGSRUNFR : BLOCK f Ovree ' User runframe 
DBG$GB_RA : VECTORLS, BYTE) i Radix settings 
DBGSGL_LAST_VAL, i Old last value 
DBGSGL_LAST_LOC, i Old last location 
GSGL_NEXT LOC, i Old next location 
DBGS$GL_GBLTYP i Override type 
DBG$GW-GBLLNGTH : WORD, i Override Length 
DBGSGL_DFLTTYP i Default type 
DBGSGW~DFLTLENG : WORD, i Default Length 
DBG$GB_ : REF VECTOR C,BYTEJ, | Mode structure 
DBG$GB_LANGUAGE : BYTE; i Language setting 


DEBUG. SRC JDBGNSDATA. 835; ;1 


Page 
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GLOBAL ROUTINE DBGSNGET_RADIX = 
i FUNCTIONAL DESCRIPTION: 


' 

' 

' 

' 

t 

; FORMAL PARAMETERS: 
i NONE 

' 

; IMPLICIT INPUTS: 

' 
4 
' 


iEesen-1964 01:85:07 


Returns the current output radix. This is cotetns 
whether there is a RADIX/OVERRIDE in effect, and 
that. If not, return the current radix as eel ified by SET RADIX 
or by the Language default. 


DBGSGB_RADIX = Global vector containing radix settings. 


RADIX 
RADIX = .bBGSGB paoixypesse -RADIX_OUTPUT_OVER); 


THe NEQ DBGSK_DEFAUL 


RETURN . 
RETURN Upecsce PRADIXCDBGSB.. RADIX ouTPUT) 


00000000 
00000000 
FFFFFFEFF 
00000000 
FFFFFFFE 
00000000 


End of dbgénget. radix 


-TITLE DBGNSDATA 
-IDENT \v04-000\ 


-PSECT DBGSOWN,NOEXE, 


00000 LAST_VALUE: 
. LONG 
00004 LAST_LOC: 


- LON 
00008 POTENTIAL LAST = TYPE: 
0000C POTENTIAL chae’ se weet 


00010 LAST wees 
00014 LAST_LENGIOS 
. LONG 


heSBacasbatncoss:1 


Aa first neekong 
so, returning 


posscorY fenony 
SNseT. peste poser 
BGSNMA 


gan 


oo DATA 


3; Routine Size: 


22 bytes, 


0 
+ 000000006 i 
50 000000006 


Routine Base: 


i 


DBGSCODE + 0000 


thes? = 
le-Sep- 


18: 


RN 
EXTRN 
-EXTRN 
SEXTRN 


«PSECT 


1986 12:17:19 EDEBUG.SRCSDBGNSDATA.039; 1 


pee GL_NE 
GSGL “Ser Tybo® » *seey GBLLNGTH 
bac éG es “DFLTTYP DBG$GO_DFLTLENG 
MOD_ PTR. DBG$GB_ LANGUAGE 


DBGSCODE,.NOWRT, SHR, PIC,0 
DBGSNGET_RADIX, Save nothing 
titer RADIX+2, RADIX 


DBGSGB_RADIX+1, RO 


Sete Se Se Se Se 


6 
(3) 


voe~ 
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-Sep-19 :5 Ax-11 8 -32 V4. 
if: sep-19 3: 3: %3 DEBUG. SR RCIDBGNSDATA.B3 B32;1 
ne ROUTINE DBGSNGET_TRANS_RADIX (RADIX) = 


Tl metamaia DESCRIPTION: 


Returns a translation of the default radix if dbg$k_default was suppplied. 
Otherwise, simply returns the input value. 


{ FORMAL PARAMETERS: 

RADIX = A Longword containing the radix Literal. 
| IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
t ROUTINE VALUE : 

An unsigned integer longword corresponding to the translated radix Literal. 
{| COMPLETION CODES: 

NONE 
i SIDE EFFECTS: 

NONE 


~ BEGIN 
IF radix EQL dbg$k_default 
THEN 


BEGIN 

IF -dbg$gb_ Language NEQ dbg$k_macro 
j00989b_ Language NEQ dbg$k_bliss 
RETURN dbg$k_dec imal 
RETURN dbg$k_hex; 


BEGIN 
NA radix; 
END; ! End of dbg$nget_trans_radix 


DBGSNGET_TRANS_RADIX, Save nothing 
RADIX, #T 


n 8 

ATA 16-Sep-1984 01:55:07 AX-11 Bliss-32 V4.0-74 Pa 
voes 127 300-1382 93:77:% DEBUG. SRC SaGNSDATA.O33; 1 ~ ud 
50 000000006 8 9A oe MOVZBL FRCSER LANGUAGE. RO 3 0335 

1 F BEQL 1 3 
02 09 11 CMPB RO, #2 ; 0337 

4 1 14 BEQL 1$ : 
50 A 4 boi$ MOVL #10, RO ; 0341 

4 0001 RET $ 

50 10 00 QOO1A 1$: MOVL #16, RO 3 
04 Bie RET 3 0344 
50 04 ac 00 35 2s: MOVL RADIX, RO : 0345 
04 0002 RET ; 0347 


; Routine Size: 35 bytes, Routine Base: DBGSCODE + 0016 


| 
CCT tC CC CC CC CC CC LL LL 


enna 


; 219 0 rk: 1 
; 0 0349 1 
3 1 29 1 
3 ¢ 1 3 
; 26 1 
i $$¢ bee 
3 6 0 2 1 
; 7 0 2$ 1 
3 8 0357 1 
3 9 0358 1 
3 0 8 59 1 
3 1 60 1 
; ¢ 0361 1 
2 0 66 1 
; 234 0363 (1 
; S32 0364 1 
3 36 0365 1 
3 sae 0366 1 
; 238 0367 1 
: 239 0368 1 
: 240 0369 1 
5 gel 0370 1 
3 4g 0371 +1 
; 24 O376 1 
3 sie 0373 1 
3 45 Bere 1 
: 246 0375 «(1 
3 sts p308 1 
3 48 0377 1 
: 249 0378 1 
; 250 0379 1 
: 251 0380 2 
; $26 0381 2 
“eee 0355 2 
: 254 0383 2 
s 255 0384 1 


; Routine Size: 


256 


0385 1 


19 bytes, 


AX=1 


16-se0-1984 91:93:07 se 


14-Sep-1984 12:1 
GLOBAL ROUTINE DBGSNGET_DEFAULT_TYPE (TYPE, LENGTH) 


Ot igsaze V4.0-74 
SRC JDBGNSDATA.B32;1 


: NOVALUE = 


"FUNCTIONAL DESCRIPTION: 
Returns user specified default type and Length. 
FORMAL PARAMETERS: 
TYPE 
LENGTH = The address of a longword to contain the default length 
IMPLICIT INPUTS: 
DBGSGL_DFLTTYP 
DBGSGW_DFLTLENG 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 


- The address of a longword to contain the default type 


- Contains default type 
- Contains default length 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
' 
i 
i 
' 
lee 

ieee dbg$gl_dfltt 

oO e = . ° 

Length = dbgsgw.dflrleng: 
oA, N sts$k_success; 


0000 00000 eENTRY DBGSNGET_DEFAULT_TYPE, Save nothing 
04 BC 900000006 00 0 90002 MOVL  DBGSGL_DFLTTYP, STYPE 
08 BC 000000006 00 3¢ S004 MOVZUL DBGSGW-DFLTLENG, @LENGTH 


Routine Base: DBGSCODE + 0039 


<9 
w 
3] 
74) 
Oo 
> 
~ 
Pd 


c 9 
VEseetats e883 


50 000000006 00 


0000 00000 ENTRY DBGSNGET_OVERRID 
D0 00002 MOVL  DBGSGL_GBLTYP, R 


AX-11 Ot i geet V4.0-74 
SRC 


DBGNSDATA.B32;1 


04-000 14-Sep-1984 : DEBUG.SR 
: 28 $ ! GLOBAL ROUTINE DBGSNGET_OVERRIDE_TYPE (TYPE, LENGTH) = 

: 260 B 1 !4 

: 261 9 1 ! FUNCTIONAL DESCRIPTION: 

3 ¢ 90 1! 

: o7 8 3 } Returns user specified override type and length, if set. 
: 65 2 38 | FORMAL PARAMETERS: 

3 367 0395 : TYPE - The address of a longword to contain the override type 
3 $3 3 ; | LENGTH = The address of a longword to contain override Length 
: 271 5 99 1) IMPLICIT INPUTS: 

3 Le: 0400 1! 

3 $2 ot 2 ' DBGSGL_GBLTYP = Contains -1 (no override) or user specified override type 
: 275 0403 1! DBGSGW_GBLLNGTH - Contains override Length 

3 sie 0404 1! 

: e277 0405 1 ! IMPLICIT OUTPUTS: 

3 sie 0406 1! 

3; 279 0407 1! NONE 

: 280 0408 1! 

; 281 0409 1 ! ROUTINE VALUE: 

3 see 0410 1! 

; Sez ett ! An unsigned integer longword completion code 

: 285 ee 1 ' COMPLETION CODES: 

P4 see 0414 1! 

3; 287 0415 1! STSSK_SUCCESS - If an overrride type has been set 

3; 4288 0416 1! 

; 289 0417 1! STSS$K_ERROR - No override set 

: 290 0418 1! 

: 291 0419 1 ! SIDE EFFECTS: 

3 344 pes? 1! 

: 29 0421 1! NONE 

: 296 B6s¢ 1! 

; 295 04 1 !-- 

HY 96 0424 § BEGIN 

: $38 §458 IF .dbg$gl_gbltyp EQL -1 

: ¢9 0427 $ a 

; 300 0428 RETURN sts$k_error; 

: 63 7 3 t dbg$gl_gblt 

D4 e e=.,. a e 

3 08 bee! *izngth =. bgSu_gb\ tngth; 

; 305 043 RETURN sts$k_success; 

3 $09 0434 

: 307 0435 1 END; 


f-TYPE. Save nothing 


are ATA 


FFFFFFFF 8 ©68F 
50 


046 BC 
08 Bf 000000006 


; Routine Size: 38 bytes, Routine Base: DBGSCODE + 004C 


; 308 0436 1 


92:77:99 UDEBuG. Sec SoBGNSDATA.652:1 


RO, @TYPE 
DBGSGW_GBLLNGTH, @LENGTH 
#1, RO 


9 | 
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GLOBAL ROUTINE DBGSNGET_MODE = 


| 
| 
vs | 
! FUNCTIONAL DESCRIPTION: 


This routine returns an indication of the user specified mode: that is, 
TRUE if ‘SYMBOLIC’, FALSE if ‘NOSYMBOLIC' 


10 437 
11 4 3 
\¢ 4 
1 440 
14 441 : 
15 4 § 4 
18 4 : 
1 4 : 
18 445 ! FORMAL PARAMETERS: 
19 6 ! 
0 44 : NONE 
1 rt : 
¢ rit : IMPLICIT INPUTS: 
¢ Beet DBG$GB_MOD_PTR = Pointer to current mode level 
6 ee ! IMPLICIT OUTPUTS: 
e7? 0454 ! 
28 0455 ! NONE 
$ 0628 ! 
0 045 ' ROUTINE VALUE: 
31 0458 ! 
32 0459 ! TRUE - IF mode_symbols is true 
tz 0460 ; 
3 0461 ! FALSE = IF mode_symbols is false 
$32 046 ! 
36 046 ' SIDE EFFECTS: 
37 0464 ; 
38 0465 ! NONE 
39 0466 ! 
40 0467 !oo< 
0468 BEGIN 
$ 0469 
4 0470 OCAL 
44 0471 SAVE_LEVEL, ' Holds old pointer 
45 047 LEVEC_PTR : REF VECTOR C,BYTE); ! mode structure 


: Save the present mode level 
save_level= .dbg$gb_mod_ptr; 


: Set the mode pointer to the user default level 
dbg$set_mod_tvl (user_def_mode) ; 


: Pick up the new pointer 


DAMA & & 

SPER SSRIS USUN Sse 
co 
&- 


level_ptr = .dbg$gb_mod_ptr; 


Reset the mode level 


Wi bd 

= 

oO 

oO 

= 

~ 
POPORORoPOROPONORONONORONOPONONOARINUNONONONUNININIDD 9 9 2 0 0 


dbg$gb_mod_ptr = .save_level; 


Bo Be Se Se Se Se Se Se Se Fe Se Se Se Se Se Se Se Ge Se Se Se Ge Se Fe Ge Se Ge Ge Ge Se Se Se Ge Ge Gs Ge Se Ge Ge Ge Ge Se Ge Se Se Se Ge Ge Geese Ge Se Se Se Geese 


DeeRRATA 


i 


; Routine Size: 


494 
os 
96 


38 bytes, 


F 9 

16-Sep-1984 01:55:07 

132808- 1386 9333939 
RETURN (IF .level_ptr Cmode_symbols] THEN true ELSE false); 
END; 


DEBUG. SRC JDBGNSDATA.B 


000¢ 000 .ENTRY DBGSNGET_MODE, Save R2,R3 
53 000000006 09 9 000 OVAB DBG$GB_MOD_PTR, 
5 63 00 000 MOVL § DBGSGB-MOD"PTR, SAVE_LEVEL 
or DD 990¢ PUSHL @ 
000000006 90 es E CALLS #1, DBGSSET_MOD_LVL 
$3 D0 0001 MOVL § DBG$GB_MOD_PTR, LEVEL_PTR 
6 D 90018 MOVL  §SAVE_LEVEL> DBGS$GB_MOD_PTR 
04 02 Ad €9 00018 BLBC e(LEVEL PTR), 1$ 
50 01 00 00018 MOVL #1, R 
04 000 ‘ RET 
50 04 00023 1$: CLRL = RO 
04 00025 RET 


Routine Base: DBGSCODE + 0072 


YAX-11 Bliss-32 V4.0-74 
Ss ih 3.1 
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: r} 7 } GLOBAL ROUTINE DBGSNREPORT_LAST_VAL (VALUE_DESC, MESSAGE_VECT) = 

; i 331i 

: if : ! FUNCTIONAL DESCRIPTION: 

; 7 § 1/ Returns the last ve.ue given to the user that was stored by the 

: A 2 : DEBUGGER. 

; 9 205 | FORMAL PARAMETERS: 

; 381 $309 1 value_desc - The address of a longword to contain the 

3 Hy 208 1! vaiue descriptor last created to describe 

; Bz 298 : the output to the user. 

; 385 0511 1! msg_vec - The address of a longword to contain the 

3 56 B2t¢ , 3 address of a message argument vector 

; 33! 1! as described on page 4-119 of the 

3 os g2t8 : : VAX/VMS system reference, volume 1A. 

; 90 0516 { IMPLICIT INPUTS: 

: 4 B28 : LAST_VALUE - Pointer to the stored Last value descriptor 

; 3% 05 9 1 { IMPLICIT OUTPUTS: 

; 3% $8 § 1/ If successful returns a value descriptor describing the last value 

: 397 05 1! that the user saw. Otherwise this routine returns a message argument 
3 oS Be : ' vector describing the error message. 

; 400 05 $1 i ROUTINE VALUE: 

: 49 03 g 1 } An unsigned integer longword completion code. 

; 404 05 9 i COMPLETION CODES: 

> 406 05 Q 1: STS$K_SUCCESS (1) - Successful return. The value descriptor 

3; 407 05 1! describing the Last value that the user 

; $38 ite : Saw was returned. 

: 410 0336 1! STSS$K_SEVERE (4) - Failure. No value descriptor could be found. 
3; 411 5 1 ! The longword to contain the address of the 
3 aig 5 3 1! Standard VAX Message Argument Vector is 

: it +44 : } filled in to point to a fatal error message. 
3 413 se i SIDE EFFECTS: 

> 417 328 1 None. 

3: 418 544 1! 

3 «6419 545 1 !<- 

: 420 378 BEGIN 

a: 

; ? § 305 Check for not having a last value 

; 425 331 if tast_value EOLA 0 

; 4 $ 336 BEGIN 


H 9 
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; $ emessage_vect = dbgS$nmake_arg_vect (dbg$_nolastval); 
; 4 3 RETURN’ sts k-severs; . . 

; 4 $ END; 

ii 

; 2 5 Return the value descriptor 

; 4 5 8 .value_desc = .last_value; 

; 2 27 RETURN sts$k_success; 

: 439 383 END; 


0004 000 .ENTRY DBGSNREPORT_LAST_VAL, Save R2 3 0497 
52 00000000" EF 9E 0000 MOVAB LAST_VALUE,~R2 ; 

62 p 90009 Ist LAST-VALU + 0551 

000287E0 8F DD 90000 PUSHL #165856 + 0554 
000000006 00 gi FB 001 CALLS #1, DBGSNMAKE_ARG_VECT ; 
08 a 0 00 OOO1A MOVL RO. @MESSAGE_VECT : 

0 04 v0 ork MOVE #4, RO + 0555 

06 ac 62 D0 $0052 1$ MOVL _LAST_VALUE, @VALUE_DESC + 0561 

0 01 00 000 3 MOVL wi, RO 3 0563 

04 000 RET : 0565 


3; Routine Size: 42 bytes, Routine Base: DBGSCODE + 0098 


; 440 0566 1 


9 | 
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vou VenSep-1984 42:17:19 Fore. SRCIDBGNSDATA.O39; 1 aoe oS 
GLOBAL ROUTINE DBGSNREPORT_LAST_LOC( ADDR_EXP_DESC, TYPE, LENGTH, MESSAGE_VECT) = 
1ee 


' 
FUNCTIONAL DESCRIPTION: 


~~~ 
MEW 


Returns the Last location that was returned shown to the user 
by the DEBUGGER. 


FORMAL PARAMETERS: 


~ 


add_exp_desc © The address of a longword to contain 
the address of an Address Expression 
Descriptor. 


yo? ot at at at pt oe et et et et et et et et 
Sos. Seer. ISIS £ 

ooo UFwn—oO we 
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Ab Ab Ad Ab Ab An AD AL AD Ab Ab Ab hb hb cb dab db db db dich cheb abt bh dh db ch dhdecbb di dub dich del 


ROUTINE VALUE: 


STSSK_SUCCESS (1) - An Address Expression Descriptor describing 
the Last location looked at the user was 
found and is returned along with the 


; 1 

; 1 

; 1 

; 1: 

$ 1: 

; 1: 

; 1! 

3 ,: 

; 7 =e 

3 7661! 

3 77 1! 

; 78 61! 

3 79 1! 

, Bi 

3 & 1! type - The address of a longword to contain 

3 1! the type of the last location shown 

3 1! to the user. This type may be one 

; ree 5 : : of the following types: 

: 46 1 | dsc$k_dtype_b, dsc$k_dtype_w, dsc$k_dtype_l, 
3 ret 4 : decSk-dtype- lu, dscSk dtype t. dscSk dtype.2i 
; 465 9o 1! Length ” The address of a longword to contain 

; 4 91 1! the length of the object output to the 

3 re 38 : : user. 

; 469 94 1! msg_vec - The address of a longword to contain 

; 470 95 i! the address of a standard VAX Message 

3; «471 4] 1! Argument Vector as described on page 

3; 47 mw UF 4-119 of the VAX/VMS system reference 

3; «47 98 1! manual, volume 1A. 

3; 474 99 1! 

3; 475 1 ! IMPLICIT INPUTS: 

3; «47 0601 1! 

3 rihs poe : : LAST_LOC - Pointer to the stored address expression descriptor 
3 gone ' : LAST_TYPE - The type in which current loc was last displayed. 
3 $3) 53 : : LAST_LENGTH - The Last length used for curren loc. 

; 48 1 | IMPLICIT OUTPUTS: 

: 486 09 1! 

3; «6485 \9 . 3 If successful. this routine returns an Address Expression Descriptor 
3; 4 171 =61! descr bing the last location that the user looked at and the associated 
: 48 \ , ; type and length of the object previously looked at by the user in the 
3; 488 + : DEBUGGER. 

; 490 16 1! If unsuccessful, the longword containing the address of the 

3 16 1! Standard VAX Message Argument Vector for that buffer is updated 

3 : ' : to contain the address of the error message buffer. 

3 1 1! 

3 1! 

3 1! 

: 1! 

3 1! 
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DoODO0D0000® 
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associated type and Length of the object that 
was displayed. 


STSSK_SEVERE (4) - Failure. No Address Expression Descriptor 
describing the Last location that the user 
lLooke gt could be found. The lLongword 
containing the address of the Standard VAX 
Message Argument Vector is filled in to 
point to a fatal error message. 


SIDE EFFECTS: 
None. 


BEGIN 


: Check for no current location 
if .last_loc EQLA 0 
THEN 

BEGIN 


emessage_vect = dbg$nmake_arg_vect (dbg$_nocurloc); 
ue sts$k_severe; 


! Check to see if we have a permanent symbol descriptor. If we do, then 
we must get a new interpretation of the register 


if ,,tast_loc Cdbg$b_aed_type] EQL dbg$k_perm_desc 
BEGIN 


PSD_PTR 
PERM_DESC : REF dbgSpermsd; 

perm_desc = .last_loc (dbg$l_aed_value); 

“ad dbg$nperm_sym_int (.perm_desc Cdbg$b_permsd_id], psd_ptr, 0, .message_vect) 
RETURN sts$k_severe; 

' Release the old permanent Syane? descriptor and set up the address 

expression descriptor to point to the new one. 

dbgSrel_memory (.perm_desc): 


: Make a permanent copy of the new permanent symbol descriptor 


perm_desc = dbgscopy_memory (.psd_ptr); 
Tast~ Loe (dbg$t_ aed Value) = “Gerd dese: 


H Return the requested information 
‘eed -exp.desc = .last_loc; 


2S 


6 . = Tas 
e§ = fype = OTE Pe och: 
65 RETURN sts$k_success; 
$9 END; ! End of dbgSnreport_last_loc 
000C -ENTRY 
Ad ae SUBL2 
93 D Cc TSTL 
13 1 BNEQ 
000000006 00 setts 01 PB 0016 CALLS 
10 «BC DO 0018 MOVL 
¢ 11 00021 BRB 
50 go 4 3 18 MOVL 
78 «OF 99 1 6 CMPB 
is 002A BNEQ 
52 04 AO DO 0002C 
10 aC 0D 000 PUSHL 
08 H ' 00 
7E 5 9A 00 MOVZBL 
0000v CF 4 : bbe oy 
35 04 ? Bee 2s: ye 
52 DD b0¢ 3$ PUSHL 
000000006 00 01 FB rd CALLS 
6€ 0D 0005 PUSHL 
pare 50D ROL 
g D C MOVL 
8% A D f MOVL 
4 BC 65 D ; 44 MOVL 
oe Be | 10 AS ROVE 
35 01 3 007 MOVL 
4 00074 RET 


3; Routine Size: 117 bytes, Routine Base: DBGSCODE + 00C2 


; 568 0693 1 


BBGNsDATA ifoseoct9ne 01:55:07 Yancy OLigga82 yee 


DBGSNREPORT_LAST_LOC, Save R2,R3 


AST_LOC 

#165896 
DBGSNMAKE_ARG_VECT 

RO, @MESSAGE_VECT~ 


LAST_LOC 
(RO)? Ot 53°? 
4s 


4(RO), PERM_DESC 
nes SAGE_VECT 


tae D C), (SP) 
4. 086 BCSNPERM. SYM_INT 
a: RO 


i 
DBGSREL -MEMORY 
Ps _PTR 


o DEGSCORY MEMORY 
RO; PE M_DEST 


A 0 
PERM~DESC, 4(RO) 
LAST“LOC, @ADDR_EXP_DESC 


ary 
LAST"LENGTH, @LENGTH 
ai, R 
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GLOBAL ROUTINE DBGSNSET_LAST_TYPLEN (TYPE, LENGTH) : NOVALUE = 


ee 


i FUNCTIONAL DESCRIPTION: 


Stores the velues of the input parameters for possible use of t 
current location. The type for curren loc is returned by the AE 


FORMAL PARAMETERS: 


IMPLICIT INPUTS: 


POTENTIAL_LAST_LENGTH = A Longword to contain the length 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NOVALUE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


BEGIN 


: Just tuck away the information 


potential_last_type = .type; 
botential~last~Length = "fength; 


DBGNSDATA.B32;1 


TYPE A longword containing the value of a vax standard type. 
LENGTH = A longword containing the length in bytes to be stored. 


POTENTIAL_LAST_TYPE - A longword to contain the value of type 


TYPE, POTENTIAL_LAST. TYPE 


RETURN; 
END; ! End of dbg$nsave_last_typlen 

0000 00000 ENTRY DBGSNSET_LAST_TYPLEN, Save nothing 
00000000° EF 04 ac 70 00000 ove 


a 9 
vOUnOO0 1868-1984 92:37:19  YoeauG. SRcSbBGNSDATA.OSS; 1 Peer 
; Routine Size: 11 bytes, Routine Base: DBGSCODE + 0137 
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GLOBAL ROUTINE DBGSNGET_POTENTIAL_TYPE (TYPE, LENGTH) : NOVALUE = 


+ 
FUNCTIONAL DESCRIPTION: 


This routine returns the AEI set type to be associated with current location 
in Lieu of any overrides. This information is used to type raw addresses. 


FORMAL PARAMETERS: 
TYPE - The address of a longword to contain type information 

LENGTH = The address of a longword to contain the Length (in bytes) 
IMPLICIT INPUTS: 
potential_last_type - a longword containing the type set by AEI 


potential_last_length - a longword containing the length set by AEI 
IMPLICIT OUTPUTS: 


NONE 


ROUTINE VALUE: 


NOVALUE 


COMPLETION CODES: 


NONE 


SIDE EFFECTS: 


Oa el et ed eee ee 


SESSAAAAARAAAARE EERE ERR 


SOON NEW (O VONAOUES WN OO 
ONO POPOPONPONONONDS 2 2 9 es 


+©0000000009090 


SESF 


NONE 
BEGIN 


: Just return the requested information 
type = potential last_type: 


length = .potential_last_length; 
RETURN; 
END; ! End of dbg$nget_potential_type 


DBGSNGET_POTENTIAL_TYPE, Save nothing 
POTENTIAC_LAST_ 
LASTLENGTH, @LENGTH 


essa" 


3; Routine Size: 


; 668 


19 bytes, 


0791 «#1 


Routine Base: 


DBGSCODE + 0142 


AX-11 BLi Liss: -32 v4.0-7. 
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10 
DBGNSDATA 1be$ 
v04-000 14-Se 
D 


: 670 ie } GLOBAL ROUTINE DBGSNSAVE_LAST_VAL (VALUE_DESC) : NOVALUE = 
: 67 794 1 144 
; 67 795 1 ! FUNCTIONAL DESCRIPTION: 
; 674 8238 1! 
; 675 797 1! Saves the input parameter as the interpretation of 
s 67 888 1! last value. A copy of the value descriptor is constructed from non-Listed 
; 667 799 1! storage. 
3; 678 0800 1! 
; 679 Oa. 1! Value descriptors aay be volatile or non-volatile. This routine will 
; ony oe : } store only non-volatile value descriptors. 
; 68 0804 FORMAL PARAMETERS: 
3 684 0806 1! VALUE _DESC - A longword containing the address of a value descriptor 
; 685 0807 1! to be stored for last val. If 0, then last val is 
; 686 0808 1! canceled. 
: 687 0809 1! 
; 688 0810 1 ! IMPLICIT INPUTS: 
; 689 0811 1! 
; 690 Bag 1! LAST_VAL - A longword to contain the address of the stored value 
> 691 081 a: descriptor 
'; 69 0814 1! 
; 69 0815 1 ! IMPLICIT OUTPUTS: 
; 694 0816 1! 
; 695 0817 1! NONE 
; 696 0818 1! 
3; 697 0819 1 ! ROUTINE VALUE: 
; 698 0820 1! 
; 699 0821 1! NOVALUE 
; 700 bas§ 1! 
; 701 082 1 ! COMPLETION CODES: 
3; 702 0824 1! 
3 703 0825 1! NONE 
3 704 0826 1! 
: 705 0827 1 ! SIDE EFFECTS: 
3; 706 0828 1! 
3 adh +14 ! Redefines last value. 
: 709 0831 1 i-- 
Uf ao ga 
; ie oe3s MAP VALUE_DESC : REF dbg$dhead; 
> 714 $8 6 LOCAL 
: 715 0837 - ! Dummy perengter 
; 716 +4 OLD_SYMID_LIST, ' Symid list for old ‘\' 
- Par 839 NEW SYMID_LIST, ! Symid List for new ‘\' 
: 718 oer MESSAGE VECT, ! Holds address of message argument vector 
: ahs re VALUE _PTR; ! Temporary pointer to value descriptor. 
: 721 bcs old_symid_list = 0; 
3 16 44 new_symid_list = 0; 
o> 45 value_ptr = 0; 
Bs 
: 726 848 ! Check for non-null input 


dD 10 
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HEAR Ee vatuesese neon 0 

; -value_desc 

: 729 24 THEN 

3 f . £26 BEGIN 

; 4 ¢ He } Check for a volatile value descriptor. 

: 7 085 if .value_desc Cdbg$b_dhead_type] EQL dbg$k_v_value_desc 

: Oe 0837 es J g$b_ typ g$k_v_ a 

aes 858 4 BEGIN 

; 737 0859 4 pyrene (dbg$_nonewval); 

; 738 569 4 

3 fo le | ELSE 

; 740 B66 4 BEGIN 

; 741 0865 4 

: % Bae ? We have a non-volatile value descriptor. Obtain the new symid_List. 
: 744 0866 4 IF NOT dbg$nget_symid (.value_desc, new_symid_list, dummy) 
> 745 0867 4 THEN 

3 6746 0868 5 BEGIN 

: 747 0869 5 

: 748 0870 5 ! Once again, can't save new ‘\'. 

3 749 0871 5 ! 

; 750 th 5 gogtnout info (dbg$_nonewval); 

3; 751 08735 5 EN : 

ee 0874 5 

3; 0875 4 ELSE 

3 34 0876 5 BEGIN 

3; 755 0877 5 

3; 756 0878 5 ! Try to copy the value descriptor 

3; 757 0879 5 ! 

; 758 0880 5 IF NOT dbg$ncopy_desc (.value_desc, value_ptr, dummy) 
3; 759 0881 5 THEN 

; 760 0882 6 BEGIN 

: 761 0883 6 

F re¢ 0884 6 ' Can't save ‘\' 

s 0885 6 i 

3: 764 0886 6 vatue.ptF oy (dbg$_nonewval); 

3; 765 0887 6 ue_ptr = 0; 

; 766 0888 6 

3; 767 0889 5 ELSES. 

3; 768 0890 6 BEGIN 

; 769 891 6 / ; 
3; 770 O36 6 ' The descriptor has been copied. Lock the symids. 
3: 771 0895 6 ! . 

3; (677 894 6 Gogteta_lock.syatd (.new_symid_list); 

z Fi 895 5 END; 

3: 774 896 4 END; 

: 775 897 3 END; 

3; 776 0898 END; 

3; 777 344 

3; 778 900 

3; 779 0901 ! The new descriptor has been copied and saved. Delete the old descriptor and 
; 780 O08 ! unlock symids 

3; «(781 90 i 

; fe 904 IF .last_value NEQA 0 

; 0905 THEN 


Hebeocage QL5:0% MGI! SuigssBz wtioeZe Pane 185 


} 
i. 90 BEGIN | 
: 785 309 | 
: $09 } Obtain the symids for ‘\' and unlock them. 
; ree 319 IF dbg$nget_symid (.last_value, old_symid_list, dummy) | 
; 790 91 dbg$sta_unlock_symid (.old_symid_Llist); 
: 03 aig g$sta_ SY _symid_ | 
: 738 0918 b Setenee the 60 | 
3 .- Release e storage 
: O38 $318 ee 7 tue, duany? | 
° ntree gesc e-Last_value, Gummy); 
: 796 +a ENB: re “ . 
: 738 $920 — — | 
3 ast_value = .value_ptr; 
: 799 0331 P 
; 800 09 g RETURN; 
; 801 835 
; 802 0924 #1 END; ! End of dbg$nsave_last_val 
003¢ 00000 .ENTRY DBGSNSAVE Last VAL. Save R2,R3,R4,R5 : 0792 
55 000000006 00 9€ 90002 MOVAB DBGSNGET_SYMID> R5 : 
54 000000006 00 9E 0000 MOVAB DBGSNOU TI roe” : 
53 00000000' EF H 00010 MOV LAST. VALOE. R$ : 
SE 0c C2 00017 SUBL 12, "SP : 
04 AE D4 OOO1A CLRL OLD_SYMID_LIST + 0843 
7E D4 0001D CLRL NEW-SYMID-LIST + 0844 
04 AE D4 0001F CLRL = VALOE_PTR™ > 0845 
52 04 ac bg 00022 MOVL VALUE “DESC, R2 : 0850 
49 13 00026 BEQL ; 
83 «BF 02 A2 91 00028 CMPB 22), #131 : 0856 
OE 13 00020 BEQL : 
OC AE 9F 0002F PUSHAB punety + 0866 
04 AE 9F 000 é PUSHAB NEW_SYMID_LIST F 
52 DD 000 PUSHL : 
65 9 FB 999 7 CALLS #3, DBGSNGET_SYMID ; 
0B 0 €8 0003A LBS : 
00028658 8F DD 0003p 1 PUSHL #165467 + 0872 
64 01 FB 0004 CALLS #1, DBGSNOUT_INFO : 
29 11 D046 BRB 4$ : 0866 
OC AE OF 48 2$ PUSHAB DUMMY : 0880 | 
08 AE 9F 00048 PUSHAB VALUE_PTR : | 
52 DD 0004 PUSHL R F | 
000000006 00 Q FB 05 CALLS #3, DBGSNCOPY_DESC : | 
E ” 3 BLBS = RO, _3$ : 
00028658 BF DD OO05A PUSHL #165467 > 0886 | 
4 1 FB 69 CALLS #1, DBGSNOUT _INFO : | 
04 AE D4 0006 CLRL VALUE_PTR > 0887 | 
09 11 6 6 BRB : 0880 
6F DD 3$: PUSHL NEW. SY : 0894 
000000006 99 1 FB OO06A CALLS ~bae STA. A-LcK_ symp : 
$3 DO 00071 4$: MOVL bast _VALUE > 0904 | 
4 13 00074 BEQL : 


F 19 
vOs-000 1e-$ep-198e 12:17:19 EDeaUG. SRCSDBGNSDATA.OS2; 1 


oc AE 9 6 PUSHAB DUMMY 
C h(COA F 7 PUSHAB OLD_SYMID_LIST 
DO 7C PUSHL R 
5 FB U: CALLS GSNGET_SYMID 
K E BLBC 
08 AE ODD PUSHL ti MID 
000000006 00 01 FB 7 CALLS ‘aene® Sh. UNLOCK. SYMID 
OC AE OF 5$: PUSHAB 
§ DO PUSHL VALUE 
000000006 09 fe 009 CALLS ne, ae FREE_DESC 
6 04 AE D Syn 6$: MOVL E_PTR, LAST_VALUE 
04 9E RET 


; Routine Size: 159 bytes, Routine Base: DBGSCODE + 0155 
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; 805 M § } GLOBAL ROUTINE DBGSNSAVE_LAST_LOC (ADDR_EXP_DESC, OVERRIDE_TYPE, OVERRIDE_LENGTH) : NOVALUE = 
; $9 as8 1 tee 

3 38 , 4 ! FUNCTIONAL DESCRIPTION: 

: 810 931 1: Makes an unlisted copy of an address expression descriptor to store as 

; 811 9 § 1! the interpretation of current location. If override type and length are 

: gig , ? ; supplied, current location is typed accordingly. 

: gi4 i 5 | FORMAL PARAMETERS: 

: Bi $ 1 ADDR_EXP_DESC <A Longword containing the address of an address expression 
3 \ : ; descriptor. If 0, then current loc is canceled. 

; $19 01: GVERRIDE_TYPE <= A Longword containing a vax standard type with which to 

3 § , 0941 : } type current location. 

: 8 § 308 1 OVERRIDE_LENGTH = A Longuerd somerny an integer representing the override 

: : Z Seed : Length to be associated with current location. 

; He 0946 { IMPLICIT INPUTS: 

; $59 0948 1! LAST_LOC - A longword to contain the address of an addr exp desc 

; a) bad : for current location. 

; os 949 : ; LAST_TYPE - A longword to contain the override type for current loc 

; Hy 0958 ; POTENTIAL_LAST_TYPE - A Longword containing a possible type for current loc. 
; Ste 8822 : LAST_LENGTH - A longword to contain the override length for current loc 
; oss 0357 : : POTENTIAL_LAST_LENGTH - A Longword containing a potential Last length for curren loc 
; 838 0959 1 | IMPLICIT OUTPUTS: 

; 839 0960 1! 

3 att 0961 : NONE 

; Bie 368 1 ROUTINE VALUE: 

; Bis 965 | ; NOVALUE 

; He 1 ' COMPLETION CODES: 

; 847 968 1! 

; 5 1: NONE 

; Tk: 390} | 

: B31 14 } SIDE EFFECTS: 

: 85 8 1/ Redefines current location. 

: 5 7% «15! 

; 854 75 1 ie 

H 55 7 BEGIN 

: B35 : p 

: 38 9 ADDR_EXP_DESC : REF dbg$aed; 

; a i LOCAL 

; 1 982 DUMMY, ' Dummy parameter 


H 10 
ATA 16-Sep-1 :55:07 AX-11 Bliss-32 V4.0-74 
vO 000 10-300-1384 93:33:95 DEBUG. SRC SecKsDATA.O39;1 
OL smi List. ! Pointer to old symid List 
NEW SYMID_LIST ! Pointer to new syaid list 
SAVE_ADDR— XP_bESC : REF dbgSaed; ! The address expression descriptor to save 


old_symid_list = 8: 
new symid_list = 0; 

save_addr_exp_desc = 0; 
: Check for null input 


iF -addr_exp_desc NEQA 0 
HEN 


PEPE ES FAWN ANNAN AAAI BBB B&B EAN WII NII IIIPOnononononononononononiny) 


BEGIN 
! When this routine is called, an address expression descriptor is ~~ 
! to become the definition of current loc. If a type and length (not EQL <1) 
000 ! are supplied, we type current loc according to these parameters. Otherwise, 
on) we use potential_type and potential_loc to type current loc. 
008 if override type EQL -1 
005 -override_length EQL -1 
5 one THEN 
886 00 BEGIN 
87 008 last_type = sporonttol test type: 
; S04 poet, Lengen = .potential_last_length; 
90 1 ELSE 
33 : fasts ide_t 
as e = .override e; 
38 1 last~Length = voverr ide. Length; 
94 1 END; 
95 ; 
897 1 Current location has been typed. Now a copy of the address expression 
98 1 descriptor, and any descriptors it points to must be made. First make a 


' 
i 
copy of the address expression descriptor. 
s 


S 


See sSeesSs3 


ave_addr_exp_desc = dbg$copy_memory(.addr_exp_desc); 


: Make copies of any descriptors pointed to by the address expression descriptor 
CASE, addr_exp_desc Cdbg$b_aed_type] FROM dbg$k_primary_desc TO dbg$k_notype 
SET 


MEW 0 DONA VUE WN (“OVO ONOUS WIN —O 


a me te a a a et a = = = 3 = — — 2 = = = 


SGOOSOSSOSOOSOSOSSSOOSCOOOCOOOOOOoOoOoooo 


910 Cdbg$k_primary_desc] : 

911 SBECIN Vat 

aig LOCAL 

Biz NEW_PRIM : REF dbg$dhead; 

915 

ah} : Haye to copy the primary descriptor and notify the symbol table that 
at 3 : we're hanging on to a symid. ; 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se FF Se Se Ge Ge Se Se Ge Se Ge Fe Se Se Se Se Fe Se Se Se Se Se Se Se Se Ge Se Se Ss Ge Se Se Se Se Se Fe Se Geese 
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1b-5e 1984 01:55:07 AX-11 Bliss-32 V4.0-74 P 9 
a-Sep-1966 92:17:19 EDEaUG. SRCIDBGNSDATA.S9; 1 29018) 
Ay dbgS$nget_symid (.addr_exp_desc (Cdbg$l_aed_value], new_symid_list, dummy) | 
BEGIN 
H Can't save new *.' 
dbg$nout_info (dbg$_nonewcur); 
dbg$rel_memory (.save_addr_exp_desc); 
save_addr_exp_desc = 0; 
END 
ELSE 
A dbg$ncopy_desc (.addr_exp_desc (dbg$l_aed_value], new_prim, dummy) 


dbg$rel_memory (.save_addr_exp_desc); 
save_addr_exp_desc = 0; 


ELSE 


} 
BEGIN | 
dbg$nout_info (dbg$_nonewcur); 
BEGIN | 
Notify the symbol table to hang on to the new symids | 
| 


dbg$sta_lock_symid (.new_symid_Llist); 


point the address expression to the permanent primary descriptor 
save_addr_exp_desc Cdbg$l_aed_value] = .new_prim; 


Cdbg$k_perm_desc] : 
SBECIN + | 


: Have to make a non-listed copy of the permanent symbol descriptor. 

save_addr_exp_desc (Cdbg$l_aed_value] = 

we dbg$copy_memory(.addr_exp_desc Cdbg$l_aed_value]); | 
CINRANGE ,OUTRANGE) : 

BEGIN 


: Not pointing to any descriptors. All the work has been done. 
0; 
END; 

TES; 


END 
ELSE 
BEGIN 


DBENSDATA yb-Bennt9ee 01:55:07 yayett at igs=52 vi go74e Peae 30 
poveoddr exp_desc = 0; 


~ 


: Release storage and symids for the old address expression descriptor 
if .last_loc NEQA 0 
THEN 


wr 


wn 


BEGIN 
CASE, Lest. lee Cdbg$b_aed_type] FROM dbgSk_primary_desc TO dbg$k_notype 
SET 
Cdbg$k_primary_desc) : 
SeecIN 


LOCAL 
OLD_PRIM_DESC : REF dbg$dhead; 


old_prim_desc = .last_loc Cdbg$l_aed_value]; ! Get the primary desc 


Sd 8 tt 


w UI OOSSNOUP NV HOODOO RO OSS 


Extract the symids 
J dbgSnget_symid (.old_prim_desc, old_symid_list, dummy) 
dbg$sta_unlock_symid (.old_symid_list); 
Release the storage for the primary descriptor 
dbg$nfree_desc (.old_prim_desc, dummy); 
END; 
Cdbgsh porn_desc) : 


LP ET SER EES SS SEER Tot htt Seem 


! Release the storage for the address expression descriptor itself and 
set current loc to nil 


a kk a a a a a at at at a ss 3 2 4) 2 4 SS 0 SS SY SY DY 
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011 
aig : Just release the storage for the permanent symbol descriptor 
O18 dbg$rel_memory (.last_loc [dbg$l_aed_value)); 
Big , END; 
O18 9 CINRANGE ,OUTRANGE) : 
318 rt BEGIN 
1 $§ : No extra storage to release 
; 44 0; 
4 45 
é $8 END; 
4 TES; 
, 
39 
x 


Sooooooocooeoo 
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wo 


16-3 p-1984 01:55:07 YAY=11 Bl iss=32 v4. 0-74 Pege 31 


p-1 9 DEBUG. SRC JDBGNSDATA.B32;1 


; ; 1 : dbg$rel_memory (.last_loc); 
; 1035 11 END; 
: Hi 
; } i $ Save the new address expression descriptor 
; -Save_addr_exp_desc 
; 1181 iweis dd d NEQA 0 
31 § 1188 last_loc = .save_addr_exp_desc 
31 1164 ELSE | 
3 ; : 1199 last_loc = 0; 
; 1046 1167 RETURN; | 
3; 1048 1189 END; ! End of dbg$nsave_last_loc 
OOFC 000 -ENTRY DBGSNSAVE LAST LOC, Save R2,R3,R4,R5,R6,R7 ; 0926. 
7 000000006 00 9€ 0000 MOVAB DBGSNGET_SYMID> R 3 
§ 000000006 9E 000 MOVAB DBGSCOPY-MEMORY, R6 3 | 
49444444 0 9E Bee MOVAB OBGSREL_MEMORY, RS 3 
24 0000000° EF 9 001 MOV LAST_LOT, R4 3 
E .-¢€ 1€ SUBL #i2, SP 3 
046 AE 04 00021 CLRL OLD_SYMID_LIST 3 0987 | 
7E 04 90 4 CLRL NEW-SYMID“LIST : 0988 | 
53 D4 00026 CLRL  SAVE_ADDREXP_DESC ; 0989 
52 04 ° ? 4 : py ADDR_EXP_BESC, R2 3 0994 
FFFFFFFF 8F 08 AC D1 02E CMPL OVERRIDE_TYPE, #1 : 1003 
OA 13 000 BEQL $ 
FRFFFFFF SF 0c AC D1 000 CMPL VERRIDE_LENGTH, #-1 : 1005 
07 #12 Boe BNEQ 3 
Oc AG 04 as 7p 4 1$: nova POTENTIAL_LAST_TYPE, LAST_TYPE : 1008 
oc AS 08 8S 70 $029 $3: MOVa OVERRIDE_TYPE, LAST_TYPE 3 1913 
52 oD 4E 5%: PUSHL R : 102 
$6 2 FB 0005 CALLS #1, DBGSCOPY_MEMORY $ 
5 g” 2 MOVL RO wae ADOR EXP_DESC 3 
79 af 6 F 6 CASEB (RE), A121, 47 : 1027 | 
8 66 $06 00 iis48,- : 
9$-4$,- 3 
11$-4§,- : 
11$-4$,- 3 
11$-4$,- 3 
11$-4$,- 3 
11$-4$ 3 
54 11 6B BRB 11$ 3 
AE OF $8 5$: PUSHAB DUMMY 3; 1040 
4 AE OF PUSHAB NEW_SYMID_LIST 3 
4 A2d 0D 7 PUSHL 4(R2) $ 
67 4 08 CALLS 4% DBGSNGET_SYMID é 
13 E BLBC RO, 6$ 3 


10 
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8 ATA 


oe 


¢ AE gf 7¢ PUSHAB DUMMY 
A oF 7F PUSHAB NEW PRIM 
000000006 Fe 3 CALL a3, Wares 
00028663 8F DD F 6$: SHL 65475 
000000006 00 } FB 5 CALLS #1, DBGS 
DD 0009¢ PUSHL SAVE_ADDR_EXP DESC 
65 01 FB O9 CALLS #1, BBGSREL_MEMORY 
SE bp BObAS be; || PUCML NEULSYMIO.LIST 
000000006 09 6f FB OAs . CALLS # 4 cesT A LOCK_SYMID 
ar 04 AE 0G OAC HOVE NEG_PRIM, 4TSAVEADDR_EXP_DESC) 
04 8s DD 00083 9$: PUSHL  4(R2) 
66 gi F 086 CALLS #1, DBGSCOPY_MEMORY 
06 =A 0 p 089 HOVE RO, 4(SAVE_ADDR_EXP_DESC) 
o¢ D4 OOOBF 10$ CLRL  SAVE_ADDR_EXP_DESC 
50 64 00 00C1 11$ MOVL LASTLOC,~RO 
4C 13 000C4 BEQL 178 
9 79 «BF 60 8F 000C6 CASEB (RO), #121, #7 
0043 003¢ 0042 001 00cB 12$ <WORD 13$-12$,- 
0042 004 004 000D 168-1 $.- 
16$-12$.- 
16$-12$.- 
16$-12$.- 
16$-12$.- 
16$-12$ 
30 11 00008 BRB 16$ 
- Be OMe BP Gosek oe POSHIAS DUR’ eon RIMADESC 
OC AE 9F O00E4 PUSHAB OLD_SYMID_LIST 
53 DD QOE7 PUSHL OLD"PRIM DESC 
67 03 FB O0E9 CALLS #3, DBGSNGET_SYMID 
08 AE DD OO0EF PUSHL OLD_SYMID_LIST 
000000006 00 01 FB OOF CALLS #1, DBGSSTA_UNLOCK_SYMID 
- 53 i bore _— pus 5 D PRIM DESC 
000000006 00 02 FB OOFE CALLS a “DBGSAFREE_DESC 
04 8 bo 19? 15$: SUCHE 1880) 
rs) A FB B19A "CALLS ~=s #1, DBGSREL_MEMORY 
64 DD 9190 16$:  PUSHL LAST_LOC 
65 1 FB OO10F CALLS #1, BBGSREL_MEMORY 
; 08 Olle 17$: iste SAVE_ADDR_ERP_DESC 
64 3 0 a8 MOVL SAVE _ADDR_EXP_DESC, LAST_LOC 
64 D4 OO1IA 188:  CLRL __LAST_LOC 
4 0011C RET 


3; Routine Size: 285 bytes, Routine Base: DBGSCODE + O1F4 
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N 10 
GNSDATA 16-Sep-1984 01:55:07 AX-11 Bliss-32 V4.0-74 Page 34 
vOe 1-360-1984 93F33i95 DEBUG. SRC JDBGNSDATA. $351 : 
GLOBAL ROUTINE DBGSNCANCEL_LOC_AND_VAL : NOVALUE = 
e+ 


i FUNCTIONAL DESCRIPTION: 


When changing languages, last val and current location go away. This 
routine does this. 


OOOoCooocoo 


uw 


OONOULS Wr 


abg$gl“next_loc = 0; 


: Wipe out the pseudos for the new debugger 


dbg$nsave_last_val (9); 
dbg$nsave_last_loc (0, dbg$k_notype, 0); 


1 71 1 | 
3 3 1172 #1 | 
31 1175 «1 

3 3 1174 «1 | 
3 y 1175 1! 
3 1 1328 1! 

71 177 1: | 
3 } 1108 1} 

3 Y 1179 1 ! FORMAL PARAMETERS: 

; 1060 1139 1! 

; 1061 1181 1! NONE 

3 106¢ 1186 1! 

: 106 11 1 | IMPLICIT INPUTS: 

: 1064 Bt 1! 

; 1292 118? } : dbg$gl_last_val - Old debugger last value 

3 1967 187 : : dbg$gl_last_loc Old debugger Last location (current loc) 

§ 34 113) ! dbg$gl_next_loc - Old debugger next location ( <CR> ) 

; 197) 1133 : last_value Pointer to value descriptor for last val 

3 109 1198 +: last_loc - Pointer to addr exp desc for current loc 

: 1074 1194 1! 

: 1075 1195 1! IMPLICIT OUTPUTS: 

3 107 1196 1! 
3; 107 1197 1! NONE 

: 1078 1198 1! 

: 1079 1199 1 ! ROUTINE VALUE: 

; 1080 1200 1! 

3; 1081 1201 1! NOVALUE 

; 186 1 $¢ 1! 

3; 108 1205 1 ! COMPLETION CODES: 

3 1084 1206 1! 

3; 1085 1205 1! NONE 

3 1086 1206 1! 

3 1087 1207 1 ! SIDE EFFECTS: 

3; 1088 1208 1! 

3; 1089 1209 1! The meaning of current location and last value is erased for the old and 

3; 1090 1210 1! new debuggers. 

3; 1091 1211 1! 

; 109% 1 1 1 !e- 
3 109 121 BEGIN 
3: 1094 1214 
3; 1095 1215 
3 1000 ' 1g Wipe out the pseudos for the old debugger 

: 1098 1218 dbo$gl_tast_val = 0: | 
3 +44 : 19 doaSe! tast_loc = 0; 

3 1 1 

3 7% 1 

3 7 1 

3 7 1 

3 7 1 

3 7 1 

3% 1 


st st 
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: 1108 1368 2 RETURN; 
1 1 END; 


: 1109 ! End to dbg$ncancel_loc_and_val 


0000 0000 ENTRY DBGSNCANCEL _ LOC_AND_VAL, Save nothing : 1171 
000000006 00 D4 0000 CLRL DBGS$GL_LAST-VAL : 1218 
900000006 00 D4 0000 CLRL  DBGS$GL~ “bast “LOC + 1219 
00000006 00 D4 OO00E CLRL —-DBGSGLNEXT=LOC a 20 
7E D4 b0014 CL + 1225 

FE29 CF gr FB 00016 CALLS #1, DBGSNSAVE_LAST_VAL ; 
E 04 00018 1 eee ; + 1226 

7E 80 8F 9A 00010 MOVZBL #128, =(SP) : 

43 D4 00021 CLRL = ; 

FEBB OCF 03 FB 00023 CALLS #3, DBGSNSAVE_LAST_LOC : 
04 00028 RET + 1229 


; Routine Size: 41 bytes, Routine Base: DBGSCODE + 0311 


: 1110 1230 1 


11 
DBGNSDATA 1b-Se -1984 01:55:07 AX-11 Bliss-32 V4.0-74 Page 36) 
yOen000 12-80 8-1 3c 9333930 DEBUG. SRC IDBGNSDATA.B3 31 . Rist 
$ 1118 : 1 } GLOBAL ROUTINE DBGSNPERM_SYM_INT (REG_NUM, PERM_SYM_PTR, PATH_NAME_VECT, MESSAGE_VECT) = | 
3 1114 1 ’ 1 44 
: 1332 : 2 : FUNCTIONAL DESCRIPTION: 
: iW4e 1236 1! A_ kernel DEBUG routine to obtain a permanent symbol descriptor for the 
; 1333 ’ f : DEBUG permanent symbols RO-R11, AP, PC, FP, and PSL. 
3 i , : io ; } A permanent symbol descriptor contains information which: 
o . | 
: it ¢ ; rf : 1) = identifies the symbol by register number | 
3 1124 1 rk 1! 2) = contains a virtual address which represents the location at which 
3 1182 iste : } the debugger has stored the value of the register 
3: 1127 1246 1 ! FORMAL PARAMETERS: | 
3; 1128 1247 1! 
3; 1129 1248 1! reg_num - A longword containing an uns toned integer between 0 and 16, 
3 1130 1249 1! inclusive. This integer identifies the permanent symbol 
3 Vi3! 1$20 : to be found according to the following code: 
; 1133 1936 7% dbg$k_r0 (200) - RO 
3 1134 1253 1! 
3; 1135 1254 1! dbg$k_ri (201) - R1 
3; 1136 1255 1! 
3 1137 1256 1! dbg$k_r2 (202) - R2 
3; 1138 1257 1! 
3 1139 1258 1! dbg$k_r3 (203) - R3 
3 1140 1259 1! 
3 1141 1260 1! dbg$k_r3 (204) - R4 
3 py 1261 1! 
3 114 1262 1! dbg$k_r5 (205) - RS 
3 1144 1263 1! 
3 1145 1264 1! dbg$k_r6 (206) - R6 
3 1146 1265 1! | 
3 1147 1266 1! dbg$k_r7 (207) - R7 
3; 1148 1267 1! 
> 1149 1268 1 | dbg$k_r8 (208) - RB | 
3 1150 1269 1! 
3 1151 1270 1! dbg$k_r9 (209) - R9 
3 1338 1271 1! 
3 115 \st¢ 7} dbg$k_r10 (210) - R10 
3 1154 \¢? 1! 
3 1155 1274 1! dbg$k_r11 (211) - R11 | 
3; 1156 1275 1! 
3 M120 1¢78 ; : dbg$k_ap (212) = R12 (AP) 
3 1159 1598 1! dbg$k_fp (213) - R13 (FP) 
3; 1160 1628 1! 
3 1161 1280 1! dbg$k_sp (214) - R14 (SP) 
3 1308 1281 1! 
3 He : 3 ! : dbg$k_pc (215) - R15 (PC) 
3 BY £4 ' Bs : dbg$k_psl (216) - PSL 
> 1167 1 if 1! perm_sym_ptr = The address of a longword to contain the address of a 
3: 1168 1 1! permanent symbol descriptor upon return. This permanent 


dD 11 
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LOCAL 
PERM_SYM_DESC : REF dbgSpermsd; 


: Create storage for the permanent symbol descriptor 


OOWOONOUE WN —-O0en 


perm_sym_desc = dbg$get_tempmem(dbg$k_permsd_size); 


BE PWWAANw 


3 1169 1 3 7 symbol descriptor consists of nine byte block. The first 
; 1170 1 1: oye contains the register id number as input in reg_num. 
3 1171 1 1! The next four bytes contain the address of the store 

3 1126 1291 1! value of the register. The next four bytes are reserved 
; Ee, : 38 : for future use and will be set to 0 in this release. 

: 1175 1294 1/3 path_name_vect = Not used in this release. Should be a longword containing 
; 1176 1295 1! . A future release of DEBUG will allow pathname qual- 
‘ EA : 38 : : ification of registers. 

: 1179 1298 1 message_vect - The address of a longword to contain the address of a 

3; 1180 1299 1! message argument vector as described on page 4-119 of 

; at} ! oY ! } the VAX/VMS system reference, volume 1A. 

; 1183 1308 | i IMPLICIT INPUTS: 

> 1184 1303 1! 

iG coe ie eee 

; 1187 1306 i IMPLICIT OUTPUTS: 

> 1189 1308 1 In case of a success return, a permanent symbol descriptor is constructed 
; 100 4 } } and returned. 

: 1136 1311 1 i In case of a severe error return, a message argument vector is constructed 
; 1102 1318 : : and returned. 

; 1195 1314 i ROUTINE VALUE: 

: +24 1318 ; ; An usigned integer longword completion code 

; 1199 1318 1 i COMPLETION CODES: 

: 1201 1320 1! STS$K_SUCCESS (1) = Success. Permanent symbol descriptor constructed 

; 1608 135) : and returned. 

: 1502 1358 1 STSSK_SEVERE (4) = Failure. Permanent symbol not interpreted. Message 

3 1202 13s¢ : } argument vector constructed and returned. 

> 120 1326 1 | SIDE EFFECTS: 

: 120 1327 1! 

: 120 1328 1! NONE 

: 8 1 

:1 1351 "BEGIN 

3 1 1 § 

3 7 13 

31 1334 

3 % q 

3 7 1 

3 3 1 

sy 1 

: 1 1 

3 1 1 

3 7 1 

3 1 1 

3 1 

3 1% 1 


POPDPOPUNIPIPONONINIMOPONINIPONy 
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' copy the segrener id over t 


the permanent symbols descriptor and make sure 
that the pa d 


fr) 
hname pointer field is 0. 
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perm_sym_desc (d 
perm_sym_desc 


b_permsd_id] =. 
L_permsd_path] = 


9 DEBUG. SRC JDBGNSDATA.B 


Obtain the address of the register, keying off the id number. 


perm_sym_desc Cdbg$l_permsd_addr] = 
sorter "yea aentnens FROM dbg$k_r0 TO dbg$k_psl 


SOOWONA ULSD “OC ODONAOULS WN" OVONOu 


: $DBG_ERROR('DBGNSDATA\DBGSNPERM_SYM_INT); 


CINRANGE , OUTRANGE J 
TES); 


-perm_sym_ptr 
RETURN sts$k_success; 
! End of dbg$nperm_sym_int 


-perm_sym_desc; 


a at tk at ts 2s 2 2 ss 1s Ss 2 Ss FS SY SS YS ot DY 
an tt 8 ss ts os Ss 9 2s 2 2 2 1 a — 2 2 2s 9 1 a a sn 


=NNINNINNAWNA AWWW NINN NIIIInononononononony 


MO DCONOUSWN— 


24 47 42 4 
54 4 


000000006 3 
6 


DBGSPLIT,NOWRT, SHR, PIC,0 


<27>\DBGNSDATA\<92>\DBGSNPERM_SYM_INT\ 


DBGSCODE .NOWRT, SHR, PIC,0 


DBGSNPERM_SYM_INT, Save R2,R3 
DBGSRUNFRAME+Z, RS 


a 

#1, DBGSGET_TEMPMEM 

RO, PERM_SYM_DESC 
REG_NUM, ~(PERM_SYM_DESC) 
8(PERM_SYM_DESC) 


F 11 | 

-Sep-1984 01:55:07 AX-11 Bliss-32 V4.0-7 Page 39. 

voeeO00 13-808- 1982 94:73:07 DEBUG. SRC SBGNSDATA.B3 31 a) 
F 4 AC CF 0001 CASEL REG_NUM, #200, #16 ; 1353) 

A out arereeee aE . 35 8 : 1$ . WORD es-18.- ; | 

SO7k 35 2 E 3 O88 i$-13/- ; 

0092 08C 0086 089 onze gs-1 ; - ; | 
$-1$.- ; 
$-1$.- ; | 

Ha - : 
10$-1$,- : | 
11$-1$.- : | 

1¢8-18.- : 
13$-1$.- : 
14$-1$.- : 
15$-1$.- : | 

168-18.- : 
1 $-1$,- Pi} | 
000000" EF 9F 00047 PUSHAR PeAAAY : 1375) 
wena: i PO boner PUSHE 1 ES ; | 
000000006 00 : Fe 09035 CALLS 3 LIB$SIGNAL | 
50 6 H 0005 28: NOVAB DBGSRUNFRAME+4, RO ; 1357 
50 04 AS H 00063 3$: MOVAB DBGSRUNFRAME+8, RO : 1358 | 
50 08 £3 9 00069 4s: NOVAB —DBGSRUNFRAME*12, RO 1359, 
50 0c as H Oder 5$: MOVAB DBGSRUNFRAME+16, RO ; 1360 
50 10 A 1 09078 6$: NOVAB DBGSRUNFRAME+20, RO ; 1361 
50 14 a3 H 00078 7$: NOVAB DBGSRUNFRAME+24, RO ; 1362 
50 18 As 9 90081 8$: NOVAB DBGSRUNFRAME+28, RO ; 1363 
50 ic As H 9087 9$: NOVAB DBGSRUNFRAME+32, RO ; 1364 
50 20 a3 1 098 108: NOVAB DEGSRUNF RAME +36, RO ; 1365 
50 24 A H 0093 11$: MOVAB DBGSRUNFRAME +40, RO ; 1366, 
50 28 i % 0999 128: MOVAB DBGSRUNFRAME+44, RO 1367 
50 2c A % F 138: NOVAB DBGSRUNFRAME +48, RO ; 1368 
50 30 AS 4 1 148: ROVAB DBGSRUNFRAME*+52. RO ; 1369 | 
50 34 ‘ 95 AB 158: ROVAB DBGSRUNF RAME +56, RO 1370 
50 38 As ? 1 168: ROVAB DBGSRUNFRAME+60, RO ; 1371 
50 3C As i $3 178: MOVAB DBGSRUNF RANE +64, RO 1372 | 
18$:  MOVAB DBGSRUNFRAME+68, RO : 1373, 
04 3 - $3 Bb a 188: MOVL RBS 4(PERM_SYM_DESC) ; 1353 


11 
voe~000 VESeocahs Q4:65:0% YASS SLSSadRNAC ZB. P08 18) 
08 5 84 b9 t99¢3 pove A ae Nica @PERM_SYM_PTR : 1385 

4 000cc RET 1382) 

; Routine Size: 205 bytes, Routine Base: DBGSCODE + 033A | 


DB ENSDATA 


H 11 
1e-$ep-198e 12:17:19 EDEeUG. SRC SDBGNSDATA.8S9: 1 


1265 1383 1 END ‘End of module 
1582 1382 0 ELUDOM 
eEXTRN LIBSSIGNAL 

é PSECT SUMMARY 
3 Name Bytes Attributes 
; DBGSOWN ¢ NOVEC, WRT, RO ee NOSHR, LCL, REL, CON, Sera tot ts 
; DBGSCODE 1031 NOVEC, *NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
3; DBGSPLIT 28 NOVEC, ‘NOWRT, RD, EXE. SHR, LCL, REL, CON, PIC,ALIGN(O) 
$ Library Statistics 
Sie, 0 oY nee eee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: .$255$0UA28:(SYSLIBILIB.L32;1 18619 3 0 1000 00:01.9 
.-. 22$DUA 8: (DEBUG.OBJ JS TRUCDEF 32:1 32 0 9 7 90:09. 
: ~$255$0UA28: (DEBUG.0BJJDBGLIB.L 154 48 97 0:02.0 
; $255 8: CDEBUG.OBJ DSTRECRDS. isa; 1 
; 418 2 0 31 00:00.4 
: ~S$255$DUA aot FoeBus. 08.4 }0B6NS6. L333! 386 22 5 $8 00:00.3 
; _$255$DUA28: CDEBUG.0BJ JDBGGEN.L 150 2 1 1 00:00.3 
3 COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INJTIAL,OPTIMIZE)/LIS=LIS$:DBGNSDATA/OBJ=0BJ$:DBGNSDATA MSRC$:DBGNSDATA/UPDATE=(ENHS$: DBGNSDATA) 


3; Size 1031 code + 52 data bytes 
3; Run “lime :25. 

5 Elapsed. Time: 1:19, 

3 Lines/CPU Min: 487 

3 Lexenes/CPU-Rin: 469 

3 poner Used: 132 pages 

3; Compilation Complete 
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